/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_09 / discutils / !DiscUtils / DiscCopy0

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 64 21 f4 20 3e 20 | 3c 44 69 73 63 55 74 69 |..d!. > |<DiscUti|
|00000010| 6c 73 24 44 69 72 3e 2e | 44 69 73 63 43 6f 70 79 |ls$Dir>.|DiscCopy|
|00000020| 30 0d 00 6e 28 f4 20 41 | 75 74 68 6f 72 20 20 20 |0..n(. A|uthor   |
|00000030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 20 47 |        |     : G|
|00000040| 20 4c 20 46 69 74 74 6f | 6e 0d 00 78 2d f4 20 43 | L Fitto|n..x-. C|
|00000050| 6f 70 79 72 69 67 68 74 | 20 20 20 20 20 20 20 20 |opyright|        |
|00000060| 20 20 20 20 20 3a 20 41 | 42 41 43 55 53 20 54 52 |     : A|BACUS TR|
|00000070| 41 49 4e 49 4e 47 0d 00 | 82 2d f4 20 56 65 72 73 |AINING..|.-. Vers|
|00000080| 69 6f 6e 20 30 2e 30 30 | 20 20 20 20 20 20 20 20 |ion 0.00|        |
|00000090| 20 20 3a 20 32 39 74 68 | 20 41 70 72 69 6c 20 31 |  : 29th| April 1|
|000000a0| 39 38 39 0d 00 8c 05 3a | 0d 00 96 32 f4 20 54 68 |989....:|...2. Th|
|000000b0| 69 73 20 70 72 6f 67 72 | 61 6d 20 77 69 6c 6c 20 |is progr|am will |
|000000c0| 62 61 63 6b 20 75 70 20 | 6d 61 6e 79 20 66 6c 6f |back up |many flo|
|000000d0| 70 70 79 20 64 69 73 63 | 73 2e 0d 00 a0 07 eb 20 |ppy disc|s...... |
|000000e0| 30 0d 00 aa 05 3a 0d 00 | b4 17 f4 20 47 6c 6f 62 |0....:..|... Glob|
|000000f0| 61 6c 20 56 61 72 69 61 | 62 6c 65 73 2e 0d 00 be |al Varia|bles....|
|00000100| 34 63 6f 64 65 73 69 7a | 65 25 20 20 3d 20 26 32 |4codesiz|e%  = &2|
|00000110| 38 30 30 30 20 20 20 3a | f4 20 43 6f 70 79 20 69 |8000   :|. Copy i|
|00000120| 6e 20 62 6c 6f 63 6b 73 | 20 6f 66 20 31 36 30 6b |n blocks| of 160k|
|00000130| 2e 0d 00 c8 3b de 20 63 | 6f 64 65 25 20 63 6f 64 |....;. c|ode% cod|
|00000140| 65 73 69 7a 65 25 20 20 | 20 3a f4 20 52 65 73 65 |esize%  | :. Rese|
|00000150| 72 76 65 20 73 6f 6d 65 | 20 73 70 61 63 65 20 66 |rve some| space f|
|00000160| 6f 72 20 74 68 65 20 63 | 6f 64 65 2e 0d 00 d2 36 |or the c|ode....6|
|00000170| 67 65 74 24 20 20 20 20 | 20 20 20 3d 20 22 22 20 |get$    |   = "" |
|00000180| 20 20 20 20 20 20 3a f4 | 20 53 6f 75 72 63 65 20 |      :.| Source |
|00000190| 20 20 20 20 20 64 72 69 | 76 65 20 6e 75 6d 62 65 |     dri|ve numbe|
|000001a0| 72 2e 0d 00 dc 35 67 65 | 74 25 20 20 20 20 20 20 |r....5ge|t%      |
|000001b0| 20 3d 20 20 30 20 20 20 | 20 20 20 20 3a f4 20 53 | =  0   |    :. S|
|000001c0| 6f 75 72 63 65 20 20 20 | 20 20 20 72 65 61 73 6f |ource   |   reaso|
|000001d0| 6e 20 63 6f 64 65 2e 0d | 00 e6 36 70 75 74 24 20 |n code..|..6put$ |
|000001e0| 20 20 20 20 20 20 3d 20 | 22 22 20 20 20 20 20 20 |      = |""      |
|000001f0| 20 3a f4 20 44 65 73 74 | 69 6e 61 74 69 6f 6e 20 | :. Dest|ination |
|00000200| 64 72 69 76 65 20 6e 75 | 6d 62 65 72 2e 0d 00 f0 |drive nu|mber....|
|00000210| 35 70 75 74 25 20 20 20 | 20 20 20 20 3d 20 20 30 |5put%   |    =  0|
|00000220| 20 20 20 20 20 20 20 3a | f4 20 44 65 73 74 69 6e |       :|. Destin|
|00000230| 61 74 69 6f 6e 20 72 65 | 61 73 6f 6e 20 63 6f 64 |ation re|ason cod|
|00000240| 65 2e 0d 00 fa 31 73 74 | 61 72 74 25 20 20 20 20 |e....1st|art%    |
|00000250| 20 3d 20 20 30 20 20 20 | 20 20 20 20 3a f4 20 53 | =  0   |    :. S|
|00000260| 74 61 72 74 20 61 74 20 | 74 72 61 63 6b 20 7a 65 |tart at |track ze|
|00000270| 72 6f 2e 0d 01 04 31 65 | 6e 64 25 20 20 20 20 20 |ro....1e|nd%     |
|00000280| 20 20 3d 20 20 30 20 20 | 20 20 20 20 20 3a f4 20 |  =  0  |     :. |
|00000290| 54 68 65 20 65 6e 64 20 | 6f 66 20 74 68 65 20 64 |The end |of the d|
|000002a0| 69 73 63 2e 0d 01 0e 32 | 6f 70 74 69 6f 6e 73 24 |isc....2|options$|
|000002b0| 20 20 20 3d 20 22 4c 6c | 44 64 45 65 22 20 3a f4 |   = "Ll|DdEe" :.|
|000002c0| 20 54 79 70 65 73 20 6f | 66 20 64 69 73 63 20 66 | Types o|f disc f|
|000002d0| 6f 72 6d 61 74 2e 0d 01 | 18 05 3a 0d 01 22 3c f1 |ormat...|..:.."<.|
|000002e0| 20 22 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 77 | "This p|rogram w|
|000002f0| 69 6c 6c 20 62 61 63 6b | 20 75 70 20 6d 61 6e 79 |ill back| up many|
|00000300| 20 74 79 70 65 73 20 6f | 66 20 66 6c 6f 70 70 79 | types o|f floppy|
|00000310| 20 64 69 73 63 2e 22 0d | 01 2c 42 f1 20 22 55 73 | disc.".|.,B. "Us|
|00000320| 65 20 74 68 65 20 73 61 | 6d 65 20 66 6f 72 6d 61 |e the sa|me forma|
|00000330| 74 20 66 6f 72 20 62 6f | 74 68 20 73 6f 75 72 63 |t for bo|th sourc|
|00000340| 65 20 61 6e 64 20 64 65 | 73 74 69 6e 61 74 69 6f |e and de|stinatio|
|00000350| 6e 20 64 69 73 63 73 2e | 22 0d 01 36 3a f1 20 22 |n discs.|"..6:. "|
|00000360| 55 73 65 20 2a 46 52 45 | 45 20 61 6e 64 20 2a 4d |Use *FRE|E and *M|
|00000370| 41 50 20 74 6f 20 64 65 | 74 65 72 6d 69 6e 65 20 |AP to de|termine |
|00000380| 74 68 65 20 73 69 7a 65 | 20 61 6e 64 20 74 79 70 |the size| and typ|
|00000390| 65 2e 22 0d 01 40 2c f1 | 20 22 50 72 65 73 73 20 |e."..@,.| "Press |
|000003a0| 3c 45 73 63 61 70 65 3e | 20 74 6f 20 71 75 69 74 |<Escape>| to quit|
|000003b0| 20 61 74 20 61 6e 79 20 | 74 69 6d 65 2e 22 27 0d | at any |time."'.|
|000003c0| 01 4a 05 3a 0d 01 54 05 | f5 0d 01 5e 27 f1 20 20 |.J.:..T.|...^'.  |
|000003d0| 22 53 6f 75 72 63 65 20 | 20 20 20 20 20 64 72 69 |"Source |     dri|
|000003e0| 76 65 3f 20 20 28 30 2c | 31 2c 32 2c 33 29 22 3b |ve?  (0,|1,2,3)";|
|000003f0| 0d 01 68 0a 67 65 74 24 | 3d be 0d 01 72 13 fd 20 |..h.get$|=...r.. |
|00000400| a7 22 30 31 32 33 22 2c | 67 65 74 24 29 0d 01 7c |."0123",|get$)..||
|00000410| 24 f1 20 22 20 3a 20 20 | 53 6f 75 72 63 65 20 20 |$. " :  |Source  |
|00000420| 20 20 20 20 64 72 69 76 | 65 20 22 3b 67 65 74 24 |    driv|e ";get$|
|00000430| 3b 0d 01 86 05 3a 0d 01 | 90 05 f5 0d 01 9a 27 f1 |;....:..|......'.|
|00000440| 20 27 22 44 65 73 74 69 | 6e 61 74 69 6f 6e 20 64 | '"Desti|nation d|
|00000450| 72 69 76 65 3f 20 20 28 | 30 2c 31 2c 32 2c 33 29 |rive?  (|0,1,2,3)|
|00000460| 22 3b 0d 01 a4 0a 70 75 | 74 24 3d be 0d 01 ae 13 |";....pu|t$=.....|
|00000470| fd 20 a7 22 30 31 32 33 | 22 2c 70 75 74 24 29 0d |. ."0123|",put$).|
|00000480| 01 b8 23 f1 20 22 20 3a | 20 20 44 65 73 74 69 6e |..#. " :|  Destin|
|00000490| 61 74 69 6f 6e 20 64 72 | 69 76 65 20 22 3b 70 75 |ation dr|ive ";pu|
|000004a0| 74 24 0d 01 c2 05 3a 0d | 01 cc 1a 67 65 74 25 3d |t$....:.|...get%=|
|000004b0| bb 28 67 65 74 24 29 2a | 28 31 3c 3c 32 39 29 2b |.(get$)*|(1<<29)+|
|000004c0| 31 0d 01 d6 1a 70 75 74 | 25 3d bb 28 70 75 74 24 |1....put|%=.(put$|
|000004d0| 29 2a 28 31 3c 3c 32 39 | 29 2b 32 0d 01 e0 05 3a |)*(1<<29|)+2....:|
|000004e0| 0d 01 ea 05 f5 0d 01 f4 | 34 f1 20 27 27 22 57 68 |........|4. ''"Wh|
|000004f0| 61 74 20 69 73 20 74 68 | 65 20 66 6f 72 6d 61 74 |at is th|e format|
|00000500| 20 6f 66 20 74 68 65 20 | 64 69 73 63 3f 20 20 28 | of the |disc?  (|
|00000510| 4c 2f 44 2f 45 29 20 22 | 3b 0d 01 fe 0b 74 79 70 |L/D/E) "|;....typ|
|00000520| 65 24 3d be 0d 02 08 16 | fd 20 a7 6f 70 74 69 6f |e$=.....|. .optio|
|00000530| 6e 73 24 2c 74 79 70 65 | 24 29 0d 02 12 19 f1 20 |ns$,type|$)..... |
|00000540| 22 20 3a 20 46 6f 72 6d | 61 74 20 22 3b 74 79 70 |" : Form|at ";typ|
|00000550| 65 24 3b 0d 02 1c 05 3a | 0d 02 26 3c f1 20 27 27 |e$;....:|..&<. ''|
|00000560| 22 4d 61 6b 65 20 73 75 | 72 65 20 74 68 61 74 20 |"Make su|re that |
|00000570| 74 68 65 20 73 6f 75 72 | 63 65 20 64 69 73 63 20 |the sour|ce disc |
|00000580| 69 73 20 77 72 69 74 65 | 20 70 72 6f 74 65 63 74 |is write| protect|
|00000590| 65 64 2e 22 0d 02 30 05 | 3a 0d 02 3a 22 e7 20 a7 |ed."..0.|:..:". .|
|000005a0| 22 44 64 45 65 22 2c 74 | 79 70 65 24 29 20 8c 20 |"DdEe",t|ype$) . |
|000005b0| 65 6e 64 25 3d 26 43 30 | 30 30 30 0d 02 44 22 e7 |end%=&C0|000..D".|
|000005c0| 20 a7 22 4c 6c 4c 6c 22 | 2c 74 79 70 65 24 29 20 | ."LlLl"|,type$) |
|000005d0| 8c 20 65 6e 64 25 3d 26 | 41 30 30 30 30 0d 02 4e |. end%=&|A0000..N|
|000005e0| 05 3a 0d 02 58 05 f5 0d | 02 62 47 f1 20 27 22 43 |.:..X...|.bG. '"C|
|000005f0| 6f 70 79 69 6e 67 20 66 | 72 6f 6d 20 61 64 64 72 |opying f|rom addr|
|00000600| 65 73 73 20 26 22 3b 7e | 73 74 61 72 74 25 3b 22 |ess &";~|start%;"|
|00000610| 20 74 6f 20 26 22 3b 7e | 28 73 74 61 72 74 25 2b | to &";~|(start%+|
|00000620| 63 6f 64 65 73 69 7a 65 | 25 29 3b 22 2e 22 0d 02 |codesize|%);"."..|
|00000630| 6c 05 3a 0d 02 76 11 e7 | 20 67 65 74 24 3d 70 75 |l.:..v..| get$=pu|
|00000640| 74 24 20 8c 0d 02 80 31 | f1 20 20 22 49 6e 73 65 |t$ ....1|.  "Inse|
|00000650| 72 74 20 73 6f 75 72 63 | 65 20 20 20 20 20 20 64 |rt sourc|e      d|
|00000660| 69 73 63 20 61 6e 64 20 | 70 72 65 73 73 20 73 70 |isc and |press sp|
|00000670| 61 63 65 2e 22 0d 02 8a | 0b 77 61 69 74 24 3d be |ace."...|.wait$=.|
|00000680| 0d 02 94 05 cd 0d 02 9e | 05 3a 0d 02 a8 3a c8 99 |........|.:...:..|
|00000690| 20 22 41 44 46 53 5f 44 | 69 73 63 4f 70 22 2c 2c | "ADFS_D|iscOp",,|
|000006a0| 67 65 74 25 2c 73 74 61 | 72 74 25 2c 63 6f 64 65 |get%,sta|rt%,code|
|000006b0| 25 2c 63 6f 64 65 73 69 | 7a 65 25 20 b8 20 65 72 |%,codesi|ze% . er|
|000006c0| 72 6f 72 25 0d 02 b2 1e | e7 20 65 72 72 6f 72 25 |ror%....|. error%|
|000006d0| 3c 3e 30 20 8c 20 f1 20 | 22 45 72 72 6f 72 20 22 |<>0 . . |"Error "|
|000006e0| 3a e0 0d 02 bc 05 3a 0d | 02 c6 11 e7 20 67 65 74 |:.....:.|.... get|
|000006f0| 24 3d 70 75 74 24 20 8c | 0d 02 d0 31 f1 20 20 22 |$=put$ .|...1.  "|
|00000700| 49 6e 73 65 72 74 20 64 | 65 73 74 69 6e 61 74 69 |Insert d|estinati|
|00000710| 6f 6e 20 64 69 73 63 20 | 61 6e 64 20 70 72 65 73 |on disc |and pres|
|00000720| 73 20 73 70 61 63 65 2e | 22 0d 02 da 0b 77 61 69 |s space.|"....wai|
|00000730| 74 24 3d be 0d 02 e4 05 | cd 0d 02 ee 05 3a 0d 02 |t$=.....|.....:..|
|00000740| f8 3a c8 99 20 22 41 44 | 46 53 5f 44 69 73 63 4f |.:.. "AD|FS_DiscO|
|00000750| 70 22 2c 2c 70 75 74 25 | 2c 73 74 61 72 74 25 2c |p",,put%|,start%,|
|00000760| 63 6f 64 65 25 2c 63 6f | 64 65 73 69 7a 65 25 20 |code%,co|desize% |
|00000770| b8 20 65 72 72 6f 72 25 | 0d 03 02 1e e7 20 65 72 |. error%|..... er|
|00000780| 72 6f 72 25 3c 3e 30 20 | 8c 20 f1 20 22 45 72 72 |ror%<>0 |. . "Err|
|00000790| 6f 72 20 22 3a e0 0d 03 | 0c 1b 73 74 61 72 74 25 |or ":...|..start%|
|000007a0| 3d 73 74 61 72 74 25 2b | 63 6f 64 65 73 69 7a 65 |=start%+|codesize|
|000007b0| 25 0d 03 16 13 fd 20 73 | 74 61 72 74 25 3e 65 6e |%..... s|tart%>en|
|000007c0| 64 25 2d 31 0d 03 20 05 | 3a 0d 03 2a 05 e0 0d 03 |d%-1.. .|:..*....|
|000007d0| 34 05 3a 0d 03 3e 05 3a | 0d ff                   |4.:..>.:|..      |
+--------+-------------------------+-------------------------+--------+--------+